home *** CD-ROM | disk | FTP | other *** search
/ El Mac 8 / El Mac 8.iso / Shareware / Demos / OpenStack™ (Demo US) / OpenStack™ Demo / Objects Library (Demo) / XCMD / HideDesktop / HideDesktop.rsrc / HSCR_6000 < prev    next >
Encoding:
Text File  |  1995-10-23  |  410 b   |  19 lines
  1. on mouseUp
  2.   get the hilite of me
  3.   if it then
  4.   HideDeskTop OFF --ƒ
  5.   if the result≠empty then answer the result
  6.   show menubar
  7.   set the hilite of me to false
  8.  
  9. else
  10.   put 14000 into item 1 of myVar
  11.   put 145 into item 2 of myVar
  12.   put 47520 into item 3 of myVar
  13.   
  14.   HideDeskTop ON,myVar --ƒ
  15.   if the result≠empty then answer the result
  16.   else hide menubar
  17.   set the hilite of me to true
  18.  end if
  19. end mouseUp